﻿Imports Commander_Wars.Spieletools
<Serializable()> Public Class KOMelanthe
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefüllstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefüllstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "MELANTHE"
        Armee = Armeen.BH.ToString
        Musik = "Melanthe"
        Bild = GetBildID()
        Select Case My.Settings.CommanderWarsGameMoodus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
                Gaben(1) = Gaben(0)
            Case CommanderWarsGameModi.AdvanceWars2
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDS
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
                KORange = 3
            Case CommanderWarsGameModi.CommanderWars2
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
                KORange = 3
            Case Else
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
        End Select
        KOname = Objektverwalter.KOS(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        GebäudeHeilung = 2
        DeffensivStärke = New Feuerkrafttabelle115
        If My.Settings.CommanderWarsGameMoodus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafür sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If OhneFunktion = False Then
            Dim WZeit As Integer = 2
            AnimationNaturFeinde("DRAKEGABE", WZeit)
            AnimationNaturEigene("ANDYGABE", WZeit)
            NaturGift(1)
            NaturHeilung(3)
        End If
        GabeEingesetzt()
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If My.Settings.CommanderWarsGameMoodus = CommanderWarsGameModi.AdvanceWars Then
            If OhneFunktion = False Then
                Dim WZeit As Integer = 2
                AnimationNaturFeinde("DRAKEGABE", WZeit)
                AnimationNaturEigene("ANDYGABE", WZeit)
                NaturGift(1)
                NaturHeilung(3)
            End If
            GabeEingesetzt()
        ElseIf CommanderWarsGameModi.AdvanceWarsDC Then
            If OhneFunktion = False Then
                Dim WZeit As Integer = 2
                AnimationNaturFeinde("SPEZIALGABE", WZeit)
                AnimationNaturEigene("SPEZIALGABE", WZeit)
                NaturGift(2)
                NaturHeilung(3)
            End If
            LandschaftsUntergrund = New String() {"Deckung"}
            LandschaftsStärke = 10
            GabeEingesetzt()
        Else
            If OhneFunktion = False Then
                Dim WZeit As Integer = 2
                AnimationNaturFeinde("SPEZIALGABE", WZeit)
                AnimationNaturEigene("SPEZIALGABE", WZeit)
                NaturGift(2)
                NaturHeilung(4)
            End If
            LandschaftsUntergrund = New String() {"Deckung"}
            LandschaftsStärke = 10
            GabeEingesetzt()
        End If
    End Sub
    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class

<Serializable()> Public Class KOBeschreibungMelanthe
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Melanthe"
        Fein = "Botanik"
        Nein = "Städte"
        Beschreibung = New String() {"Ein botanisches Genie, hasst Menschen", "und sieht Pflanzen als überlegene", "Gattung an."}
        Stil = New String() {"Ihre Truppen haben eine erhöhte", "Deffensive."}
        Gabebeschreibung = New String() {"Feindliche Truppen auf Landschaften verlieren", "1 TP und Eigene gewinnen 3 TP."}
        SpezialgabeBeschreibung = New String() {"Feindliche Truppen auf Landschaften verlieren", "2 TP und Eigene gewinnen 4 TP und ihre", "Feuerkraft erhöht sich je nach Deckung."}
        GabeKosten = 4
        Spezialgabekosten = 4
        Gaben = New String() {"Synthetische Energie", "Naturgift"}
        Synergie = New Decimal() {2, 2, -2, -2, -2, -2}
        KONamen = New String() {"KAT", "FALCONE", "JUGGER", "VON BOLT", "CANDY", "ZAK"}
        Doppelgabenamen = New String() {"Botanische Strategie", "Allesfresser", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe"}
        Gabesätze = New String() {"Biologische Waffen sind von gestern, botanische Waffen sind die von heute!" _
                                  , "Die Macht der Natur ist auf meiner Seite." _
                                  , "Stachel der Natur bekommt eine ganz Andere Bedeutung." _
                                  , "Atme tief ein... Hä! Hä! Hä!" _
                                  , "Sprüht die Gegner mit Pflanzenschutzmittel ein!" _
                                  , "Du hast keine Allergien? Jetzt hast du welche."}
        Siegsätze = New String() {"Die Saat des Sieges wurde geerntet." _
                                , "Der Feind war eine Blume und ich sein Gärtner." _
                                , "Du hättest dir viel ersparen können, hättest du die Fakten akzeptiert."}
        Tauschsätze = New String() {"Fürchte den Schatten der Aufersteht um dich zu treffen." _
                                    , "Nun das... das hat Spaß gemacht"}
        Doppelgabesätze = New DoppelGabesatz() {New DoppelGabesatz("KAT", "MELANTHE", "Wir haben einen gigantischen Vorsprung.", "Wie eine problematische Stelle mit Blumen.") _
                                              , New DoppelGabesatz("MELANTHE", "KAT", "Ich gehe!", "Zur nächsten Schlacht! Hey, warte!") _
                                              , New DoppelGabesatz("MELANTHE", "FALCONE", "Rosen sind nicht nur Schön.", "Muss du immer über Pflanzen reden!") _
                                              , New DoppelGabesatz("FALCONE", "MELANTHE", "Das Böse kommt zu dir!", "Denn dort ist ein perfekter Nährboden.")}
    End Sub
End Class
